home *** CD-ROM | disk | FTP | other *** search
- program NewScript;
- begin
- // if GetField(fieldDisks ) = '' then SetField(fieldDisks ,'1')
- // if GetField(fieldResolution ) = '' then SetField(fieldResolution ,'mßsolt')
-
- if GetField(fieldVideoFormat) = '' then
- begin
- SetField(fieldVideoFormat , GetField(fieldResolution));
- end else
- SetField(fieldVideoFormat ,GetField(fieldVideoFormat)+', '+GetField(fieldResolution));
- begin
- end;
- SetField(fieldVideoFormat , AnsiLowerCase(GetField(fieldVideoFormat)));
- SetField(fieldResolution ,'');
-
- end.
-